library(shiny)

# Define UI for random distribution application 
shinyUI(pageWithSidebar(
  
  # Application title
  headerPanel("Teemade modelleerimine LDA-ga"),
  
  # Sidebar with controls to select the random distribution type
  # and number of observations to generate. Note the use of the br()
  # element to introduce extra vertical spacing
  sidebarPanel(
    selectInput("dataset", "Vali andmestik:", 
                choices = c("andmed_K50")),
    
    br(),
    
    br(),
    
    helpText("Märkus: jooniste laadimiseks võib kuluda rohkem kui 5 sekundit."),
    
    br(),
    
    submitButton("Uuenda"),
    
    br()
  ),
  
  # Show a tabset that includes a plot, summary, and table view
  # of the generated distribution
  mainPanel(
    tabsetPanel(
      tabPanel("Teemad", plotOutput("plot2", height="900px")),
      tabPanel("Trendid", plotOutput("plot3", height="1500px")),
      tabPanel("Trend üles", plotOutput("hot", height="300px")),
      tabPanel("Trend alla", plotOutput("cold", height="300px")),
      tabPanel("Näide", htmlOutput("summary"))
    )
  )
))
